home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / vision.dir / 00018_main tools.ls < prev    next >
Encoding:
Text File  |  1995-01-24  |  367 b   |  16 lines
  1. on mouseDown
  2.   global WhichSprite
  3.   set WhichSprite to the clickOn
  4.   puppetSprite(WhichSprite, 1)
  5.   set the castNum of sprite WhichSprite to the number of cast (the name of cast the castNum of sprite WhichSprite && "lit")
  6.   updateStage()
  7. end
  8.  
  9. on mouseUp
  10.   global WhichSprite
  11.   puppetSprite(WhichSprite, 0)
  12.   sound stop 1
  13.   sound stop 2
  14.   go("start", "tools.dir")
  15. end
  16.